home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021d.dsk / DEMO.MORE....bas < prev    next >
BASIC Source File  |  2003-06-12  |  764b  |  11 lines
  1. 10  TEXT : HOME : VTAB 5: PRINT "AND MORE...": PRINT : PRINT "THREE BEAGLE BROS DISKS DO NOT APPEAR   IN THE MAIN MENU. THEY ARE--"
  2. 20  GOSUB 100: PRINT "<1> UTILITY CITY": PRINT "<2> FRAME-UP": PRINT "<3> TIP DISK #1": GOSUB 100
  3. 30  PRINT : PRINT "FOR A BRIEF DESCRIPTION                 OF EACH, PRESS A KEY (1-3):";: FLASH : PRINT " ": NORMAL : PRINT : PRINT "...OR <ESC> TO RETURN TO THE MAIN MENU."
  4. 40 K =  PEEK( -16384): IF K <128  THEN 40
  5. 50  POKE  -16368,0: HOME 
  6. 55  IF K = 155  THEN  PRINT  CHR$(4)"RUN DEMO.MENU"
  7. 56  IF K = 177  THEN  PRINT  CHR$(4)"RUN DEMO.UTILITY CITY"
  8. 57  IF K = 178  THEN  PRINT  CHR$(4)"RUN DEMO.FRAME-UP"
  9. 58  IF K = 179  THEN  PRINT  CHR$(4)"RUN DEMO.TIP DISK #1"
  10. 59  RUN 
  11. 100  HTAB 1: FOR I = 1 TO 40: PRINT "-";: NEXT : RETURN